unit FrmAccessorySet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, DBClient,DataPersistentUnit,PublicFuncUnit;

type
  TForm_AccessorySet = class(TForm)
    Panel1: TPanel;
    ClientDataSet1: TClientDataSet;
    ClientDataSet2: TClientDataSet;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    rdmDS: TRDMDataSet;
  public
    { Public declarations }
  end;

var
  Form_AccessorySet: TForm_AccessorySet;

implementation

{$R *.dfm}

uses DMFrm;

procedure TForm_AccessorySet.FormCreate(Sender: TObject);
begin
  rdmDS := TRDMDataSet.GetInstance();
  ClientDataSet1.RemoteServer := dm.conn;
  ClientDataSet2.RemoteServer := dm.conn;
end;

initialization
  RegisterClass(TForm_AccessorySet);

finalization
  UnregisterClass(TForm_AccessorySet);

end.
